home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / prog_gen / janusw.zip / MINMDI.PAS < prev    next >
Pascal/Delphi Source File  |  1994-05-16  |  1KB  |  60 lines
  1. { Program:   MinMdi
  2.   Version:   1.00
  3.   Purpose:   this minimal MDI program demonstrates how easy it is to use
  4.              a dialog as a MDI child window using tDialogWindow
  5.   Uses:      BWCC.DLL, CTL3D.DLL if present.
  6.   Date:      07/01/93
  7.  
  8.   Developer: Peter Sawatzki (ps)
  9.              Buchenhof 3, D58091 Hagen, Germany
  10.  CompuServe: 100031,3002
  11.  
  12.   Date:     Author:
  13.   07/01/93  ps       written
  14.  
  15.   Copyright (c) 1993 Peter Sawatzki. All Rights Reserved.
  16. }
  17. Program MinMdi;
  18. {$R MinMdi.Res}
  19. Uses
  20.   WinProcs,
  21.   oWindows,
  22.   WinTypes,
  23.   DialogWn;
  24.  
  25. {-------------------- the MDI Frame window part }
  26. Type
  27.   paMDIWindow = ^aMdiWindow;
  28.   aMDIWindow = object(tAdvMdiWindow)
  29.     Function CreateChild: pWindowsObject; Virtual;
  30.   End;
  31.  
  32. Function aMDIWindow.CreateChild: pWindowsObject;
  33. {-Create a new JanusDialogWindow as a MDI child }
  34. Begin
  35.   CreateChild:= Application^.MakeWindow(New(pDialogWindow,
  36.                   Init(@Self, 'Simple')))
  37. End;
  38.  
  39. {-------------------- the Application part }
  40. Type
  41.   tProgApp = Object(tAdvApplication)
  42.     Procedure InitMainWindow; Virtual;
  43.   End;
  44.  
  45. Procedure tProgApp.InitMainWindow;
  46. Begin
  47.   MainWindow:= New(paMDIWindow, Init('MinMdi', LoadMenu(hInstance, 'aMenu')))
  48. End;
  49.  
  50. Var
  51.   App: tProgApp;
  52. Begin
  53.   With App Do Begin
  54.     Init('MinMdi');
  55.     Run;
  56.     Done
  57.   End
  58. End.
  59.  
  60.